home *** CD-ROM | disk | FTP | other *** search
/ Aminet 19 / Aminet 19 (1997)(GTI - Schatztruhe)[!][Jun 1997].iso / Aminet / comm / cnet / cnet_toolkit.lha / routines / SUBOP < prev    next >
Text File  |  1997-04-05  |  241b  |  5 lines
  1. SUBOP:;subLEN=488;subOFF=96;if cnet then do;subLEN=696;subOFF=274;end
  2.   getuser 1209388;su=result*subLEN+subOFF
  3.   getuser 2401068;so=import(x2c(d2x(result+su,8)),12)
  4.   do a=0 to 5;if Arg(1)=c2d(substr(so,a*2+1,2)) then return 1;end;return 0
  5.